﻿''' <summary>
''' 现场气象数据类
''' </summary>
''' <remarks></remarks>
<Serializable()> Public Class LocaleWeatherData
    Implements ICloneable


    ''' <summary>
    ''' 年 (String) 
    ''' </summary>
    ''' <remarks></remarks>
    Private m_year As String
    ''' <summary>
    ''' 月 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_month As String
    ''' <summary>
    ''' 日 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_day As String
    ''' <summary>
    ''' 时间 (String)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_time As String
    ''' <summary>
    ''' 时间 段 （String）
    ''' </summary>
    ''' <remarks></remarks>
    Private m_countTime As String
    ''' <summary>
    ''' 层的信息数组 (LocaleWeatherTierData)
    ''' </summary>
    ''' <remarks></remarks>
    Private m_ArrTierData(-1) As LocaleWeatherTierData

    ''' <summary>
    ''' 年 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Year() As String
        Get
            Return Me.m_year
        End Get
        Set(ByVal value As String)
            Me.m_year = value
        End Set
    End Property
    ''' <summary>
    ''' 月 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Month() As String
        Get
            Return Me.m_month
        End Get
        Set(ByVal value As String)
            Me.m_month = value
        End Set
    End Property
    ''' <summary>
    ''' 日 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Day() As String
        Get
            Return Me.m_day
        End Get
        Set(ByVal value As String)
            Me.m_day = value
        End Set
    End Property
    ''' <summary>
    ''' 时间 (String)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Time() As String
        Get
            Return Me.m_time
        End Get
        Set(ByVal value As String)
            Me.m_time = value
        End Set
    End Property
    ''' <summary>
    ''' 时间 段 （String）
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property CountTime() As String
        Get
            Return Me.m_countTime
        End Get
        Set(ByVal value As String)
            Me.m_countTime = value
        End Set
    End Property
    ''' <summary>
    ''' 层的信息数组 (LocaleWeatherTierData)
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property ArrTierData() As LocaleWeatherTierData()
        Get
            Return Me.m_ArrTierData
        End Get
        Set(ByVal value As LocaleWeatherTierData())
            Me.m_ArrTierData = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim objCopy As New LocaleWeatherData
        objCopy.m_year = Me.m_year
        objCopy.m_month = Me.m_month
        objCopy.m_day = Me.m_day
        objCopy.m_time = Me.m_time
        objCopy.m_countTime = Me.m_countTime
        ReDim objCopy.m_ArrTierData(Me.m_ArrTierData.Length - 1)
        For i As Integer = 0 To Me.m_ArrTierData.Length - 1
            objCopy.m_ArrTierData(i) = Me.m_ArrTierData(i).Clone
        Next
        Return objCopy
    End Function
End Class
